home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / zipme13.zip / GERMAN.ZIP / INSTALL.CMD next >
OS/2 REXX Batch file  |  1996-06-06  |  3KB  |  77 lines
  1. /* REXX Programm zum Installieren von ZiPMe */
  2.  
  3. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  4. Call sysloadfuncs
  5.  
  6. Call SysCls
  7.  
  8. say "                     Willkommen zur Installation von ZiPMe."
  9. say ""
  10. say "Dieses Programm wird folgendes tun:"
  11. say ""
  12. say "Es wird einen WPS Ordner mit einem Programmobjekt für ZiPMe, einer Schablone"
  13. say "für ZIP-Dateien und einem Objekt für die Datei Liesmich erstellen. Das"
  14. say "ZiPMe-Programmobjekt wird mit allen *.ZIP Dateien assoziiert, so daß Sie auf"
  15. say "eine ZIP-Datei doppelklicken können, um automatisch ZiPMe mit dieser Datei zu"
  16. say "starten. Mit der Schablone, die Sie in ihren Schablonen-Ordner verschieben"
  17. say "können, können Sie dokumentenzentriert neue ZIP-Dateien erzeugen."
  18. say ""
  19.  
  20. say "Soll mit der Installation fortgefahren werden? (J/N)"
  21. PARSE PULL reply
  22. if reply = "N" | reply = "n" then exit
  23.  
  24. curdir = Directory()
  25.  
  26. Error = 0
  27.  
  28. if SysCreateObject("WPFolder", "ZiPMe", "<WP_DESKTOP>", "OBJECTID=<ZIPME_FOLDER>") then
  29.   say "ZiPMe Ordner erstellt ..."
  30. else do
  31.   say "Der ZiPMe Ordner konnte nicht erstellt werden!"
  32.   Error = 1
  33. end
  34.  
  35. if SysCreateObject("WPProgram", "ZiPMe", "<ZIPME_FOLDER>", "EXENAME="curdir"\ZIPME.EXE;STARTUPDIR="curdir";ASSOCFILTER=*.ZIP") then
  36.   say "ZiPMe Programmobjekt erstellt ..."
  37. else do
  38.   say "Das ZiPMe Programmobjekt konnte nicht erstellt werden!"
  39.   Error = 1
  40. end
  41.  
  42. if SysCreateObject("WPProgram", "Liesmich", "<ZIPME_FOLDER>", "EXENAME=e.exe;PARAMETERS="curdir"\Liesmich") then
  43.   say "Liesmich Objekt erstellt ..."
  44. else do
  45.   say "Das Liesmich Objekt konnte nicht erstellt werden!"
  46.   Error = 1
  47. end
  48.  
  49. if SysCopyObject(""curdir"\ZIP file.ZIP", "<ZIPME_FOLDER>") then
  50.   say "ZiPMe Schablone erstellt ..."
  51. else do
  52.   say "Die ZiPMe Schablone konnte nicht erstellt werden!"
  53.   Error = 1
  54. end
  55.  
  56. say ""
  57.  
  58. if Error then do
  59. say "Einige oder alle Objekte konnten nicht erstellt werden!"
  60. say "Wenn Sie das EMX-Laufzeitsystem noch nicht installiert haben, dann kopieren"
  61. say "Sie die mit ZiPMe mitgelieferte Datei emx.dll in das Verzeichnis, in das Sie"
  62. say "ZiPMe installiert haben oder in ein Verzeichnis, das in der LIBPATH-Anweisung"
  63. say "in ihrer Config.sys steht. Danach starten Sie ZiPMe und folgen den Anweisungen"
  64. say "zur manuellen Installation in der Online-Hilfe."
  65. end  
  66. else do
  67. say "Alle Objekte wurden erfolgreich installiert."
  68. say "Wenn Sie das EMX-Laufzeitsystem noch nicht installiert haben, dann kopieren"
  69. say "Sie die mit ZiPMe mitgelieferte Datei emx.dll in das Verzeichnis, in das Sie"
  70. say "ZiPMe installiert haben oder in ein Verzeichnis, das in der LIBPATH-Anweisung"
  71. say "in ihrer Config.sys steht."
  72. say "Überprüfen Sie, ob sich zip.exe und unzip.exe in einem Verzeichnis befinden,"
  73. say "das in der PATH-Anweisung Ihrer Config.sys steht oder kopieren Sie diese in"
  74. say "das Verzeichnis, in das Sie ZiPMe installiert haben."
  75. end
  76.  
  77.